home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Text / HTML / HTMLEXT / Studio / add-ons / webworld / rexx / preview.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  2000-03-14  |  5.1 KB  |  182 lines
  1. /* $VER: 1.1, ©1998 Dietmar Eilert, Andreas Börner. HTML preview. */
  2.  
  3. if ~show("L",rexxtricks.library) then do
  4.         call addlib("rexxtricks.library",0,-30,0)
  5. end
  6.  
  7. preview = 't:htmlext/preview.htm'
  8.  
  9.  
  10. options results                             /* enable return codes     */
  11.  
  12. arg PREFER
  13.  
  14. if (left(address(), 6) ~= "GOLDED") then    /* not started by editor ? */
  15.  
  16.     address 'GOLDED.1'
  17.  
  18. 'LOCK CURRENT RELEASE=4'                    /* lock GUI, gain access   */
  19.  
  20. if (RC ~= 0) then
  21.  
  22.     exit
  23.  
  24. options failat 20                           /* ignore errors           */
  25.  
  26. signal on syntax                            /* ensure clean exit       */
  27.  
  28. /* ------------------------ Insert YOUR CODE HERE: ------------------- */
  29.  
  30. 'QUERY CAT'
  31.  
  32. if (RESULT = "deutsch") then do
  33.  
  34.     STRING.sNOTFOUND    = "Browser: ARexx-Port nicht gefunden !"
  35.     STRING.sUNSUPPORTED = "Unbekanntes Programm: "
  36. end
  37. else do
  38.  
  39.     STRING.sNOTFOUND    = "Browser: ARexx port not found !"
  40.     STRING.sUNSUPPORTED = "Unsupported program: "
  41. end
  42.  
  43. if (PREFER = "") then
  44.     PREFER = "IBROWSE AWEB VOYAGER MINDWALKER"
  45. else
  46.     PREFER = PREFER || "IBROWSE AWEB VOYAGER MINDWALKER"
  47.  
  48. do TRY = 1 to words(PREFER)
  49.  
  50.     BROWSER = UPPER(word(prefer, try))
  51.  
  52.     SELECT
  53.  
  54.         when (BROWSER = "VOYAGER") then
  55.  
  56.             PORT = "VOYAGER"
  57.  
  58.         when (browser = "MINDWALKER") then
  59.  
  60.             PORT = "MINDWALKER"
  61.  
  62.         when (BROWSER = "IBROWSE") then
  63.  
  64.             PORT = "IBROWSE"
  65.  
  66.         when (BROWSER = "AWEB") then do
  67.  
  68.             PORTS = show('P')
  69.  
  70.             PARSE VAR PORTS DUMMY 'AWEB.' PORTNR .
  71.  
  72.             PORT = "AWEB." || PORTNR
  73.  
  74.         end
  75.  
  76.         otherwise do
  77.  
  78.             PORT = ""
  79.  
  80.             'REQUEST PROBLEM="' || STRING.sUNSUPPORTED || BROWSER || '"'
  81.         end
  82.     end
  83.  
  84.     /* browser running ? */
  85.  
  86.     if (PORT ~= "") then do
  87.  
  88.         if (show('P', PORT)) then do
  89.  
  90.             /* update file on disk */
  91.  
  92.             'QUERY DOC VAR=DOC'
  93.  
  94.             if (exists(DOC)) then
  95.  
  96.                 'SAVE ALL'
  97.  
  98.             else do
  99.  
  100.                 DOC = "t:preview.html"
  101.  
  102.                 'SAVE ALL EXPORT NAME="' || DOC || '"'
  103.             end
  104.  
  105.             'UNLOCK'
  106.  
  107.             /* show file in browser */
  108.  
  109.             address value PORT
  110.  
  111.             select
  112.  
  113.                 when (BROWSER = "VOYAGER") then
  114.  
  115.                     'OPENURL "file://localhost/' || DOC || '"'
  116.  
  117.                 when (BROWSER = 'MINDWALKER') then
  118.  
  119.                     'OPENURL "file://localhost/' || DOC || '"'
  120.  
  121.                 when (BROWSER = "IBROWSE") then
  122.  
  123.                     if open('f',preview,'w') then do
  124.                         call writeln('f','<HTML><HEAD><TITLE>HTMLEXT Preview</TITLE></HEAD>')
  125.                         call writeln('f','<FRAMESET ROWS=20,* FRAMEBORDER="0" BORDER="0" FRAMESPACING=0>')
  126.                         call writeln('f','<FRAME NAME="fstop" SRC="file://localhost/htmlext:data/preview/metertoppx.htm" MARGINHEIGHT=0 MARGINWIDTH=0 SCROLLING=NO NORESIZE>')
  127.                         call writeln('f','<FRAMESET COLS=20,* FRAMEBORDER="0" BORDER="0" FRAMESPACING=0>')
  128.                         call writeln('f','<FRAME NAME="fsleft" SRC="file://localhost/htmlext:data/preview/meterleftpx.htm" MARGINHEIGHT=0 MARGINWIDTH=0 SCROLLING=NO NORESIZE>')
  129.                         call writeln('f','<FRAME NAME="frmain" SRC="file://localhost/' || DOC || '" MARGINHEIGHT=0 MARGINWIDTH=0 SCROLLING=AUTO NORESIZE>')
  130.                         call writeln('f','</FRAMESET></FRAMESET><BODY></BODY></HTML>')
  131.                         call close('f')
  132.                         'GOTOURL RELOAD "file://localhost/' || preview || '"'
  133.                     end
  134.                     else do
  135.                         'GOTOURL RELOAD "file://localhost/' || DOC || '"'
  136.                     end
  137.  
  138.                 when (BROWSER = "AWEB") then do
  139.  
  140.                     'GET ACTIVEPORT'
  141.  
  142.                     address value RESULT
  143.                     if open('f',preview,'w') then do
  144.                         call writeln('f','<HTML><HEAD><TITLE>HTMLEXT Preview</TITLE></HEAD>')
  145.                         call writeln('f','<FRAMESET ROWS=20,* FRAMEBORDER="0" BORDER="0" FRAMESPACING=0>')
  146.                         call writeln('f','<FRAME NAME="fstop" SRC="file://localhost/htmlext:data/preview/metertoppx.htm" MARGINHEIGHT=0 MARGINWIDTH=0 SCROLLING=NO NORESIZE>')
  147.                         call writeln('f','<FRAMESET COLS=20,* FRAMEBORDER="0" BORDER="0" FRAMESPACING=0>')
  148.                         call writeln('f','<FRAME NAME="fsleft" SRC="file://localhost/htmlext:data/preview/meterleftpx.htm" MARGINHEIGHT=0 MARGINWIDTH=0 SCROLLING=NO NORESIZE>')
  149.                         call writeln('f','<FRAME NAME="frmain" SRC="file://localhost/htmlext:data/preview/blank.htm" MARGINHEIGHT=0 MARGINWIDTH=0 SCROLLING=AUTO NORESIZE>')
  150.                         call writeln('f','</FRAMESET></FRAMESET><BODY></BODY></HTML>')
  151.                         call close('f')
  152.                         'OPEN URL "file://localhost/' || preview || '"'
  153.                         'OPEN RELOAD URL "file://localhost/' || DOC || '" TARGET "htprev"'
  154.                     end
  155.                     else do
  156.                         'OPEN RELOAD URL="file://localhost/' || DOC || '"'
  157.                     end
  158.                 end
  159.             end
  160.  
  161.             exit
  162.  
  163.         end
  164.     end
  165. end
  166.  
  167. 'REQUEST PROBLEM="' || STRING.sNOTFOUND || '"'
  168.  
  169. /* ---------------------------- END OF YOUR CODE --------------------- */
  170.  
  171. 'UNLOCK' /* VERY important: unlock GUI */
  172.  
  173. exit
  174.  
  175. SYNTAX:
  176.  
  177. SAY "Sorry, error line" SIGL ":" ERRORTEXT(RC) ":-("
  178.  
  179. 'UNLOCK'
  180.  
  181. exit
  182.